Option Explicit
Sub P_Sample029()
    Dim myFso     As Scripting.FileSystemObject
    Dim myName    As String
    Set myFso = New Scripting.FileSystemObject
    myName = ThisWorkbook.Path & "\Tmp\*"	'Nɮ
    myFso.DeleteFile myName, Force:=True
    'ϥMaskr
    'myFso.GetFile(myName).Delete Force:=True
    Set myFso = Nothing	'
End Sub
